home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / inrstex / inrsinputs / spfont.tex < prev    next >
Text File  |  1991-09-05  |  3KB  |  80 lines
  1. \catcode`\@=11
  2. % --------- This is the "cm" version --------
  3. % a family is produced by redefining the special font forms in 
  4.  
  5. % \genpoint ... the names reflect the base fonts 
  6.  
  7.  
  8. \def\rescale #1#2{\count255=#1\multiply\count255 by #2\relax
  9.                               \divide\count255 by 100 
  10.                               \advance\count 255 by 5 % rounding
  11.                               \divide\count 255 by 10 }
  12.  
  13. \def\fontset scaled #1 {
  14. \font\tensprm =cmr10 scaled #1
  15. \font\sevensprm  = cmr7  scaled #1
  16. \font\fivesprm = cmr5 scaled #1 
  17. \font\tenspi =  cmmi10 scaled #1 
  18. \font\sevenspi = cmmi7 scaled #1 
  19. \font\fivespi = cmmi5 scaled #1 
  20. \font\tenspsy  = cmsy10 scaled #1 
  21. \font\sevenspsy  = cmsy7 scaled #1
  22. \font\fivespsy =  cmsy5 scaled #1 
  23. \font\tenspit =  cmti10 scaled #1 
  24. \font\tenspsl =  cmsl10 scaled #1
  25. \font\tenspbfx =  cmbx10 scaled #1
  26. \font\sevenspbfx =  cmbx7 scaled #1
  27. \font\fivespbfx =  cmbx5 scaled #1
  28. \font\tensptt =  cmtt10 scaled #1 
  29. \font\tenspex = cmex10 scaled #1
  30. \def\tenspscsm{\rescale {800}{#1}
  31.                \font\t@enspscsm =  cmcc10 scaled \the\count255\relax
  32.                \let\tenspscsm=\t@enspscsm\tenspscsm}               
  33. \def\tensprmbig{\rescale {1200}{#1}
  34.                 \font\t@ensprmbig =  cmr10 scaled \the\count255\relax 
  35.                \let\tensprmbig=\t@ensprmbig\tensprmbig}
  36. \def\tenspbfxbig{\rescale {1200}{#1}
  37.                  \font\t@enspbfxbig =  cmbx10 scaled \the\count255\relax 
  38.                \let\tenspbfxbig=\t@enspbfxbig\tenspbfxbig}
  39. \def\tenspbfxbigg{\rescale {1440}{#1}
  40.                  \font\t@enspbfxbigg =  cmbx10 scaled \the\count255\relax 
  41.                \let\tenspbfxbigg=\t@enspbfxbigg\tenspbfxbigg}
  42. \def\tensprmbigg{\rescale {1440}{#1}
  43.                  \font\t@ensprmbigg =  cmr10 scaled \the\count255\relax 
  44.                  \let\tensprmbigg=\t@ensprmbigg\tensprmbigg}
  45.  \let\tensprmbiggg = \tensprmbigg }
  46.  
  47. \def\genpoint{\def\rm{\fam0\tensprm}%
  48.   \textfont0=\tensprm \scriptfont0=\sevensprm \scriptscriptfont0=\fivesprm
  49.   \textfont1=\tenspi \scriptfont1=\sevenspi \scriptscriptfont1=\fivespi
  50.   \textfont2=\tenspsy \scriptfont2=\sevenspsy \scriptscriptfont2=\fivespsy
  51.   \textfont3=\tenspex \scriptfont3=\tenspex \scriptscriptfont3=\tenspex
  52. \def\it{\fam\itfam\tenspit}%
  53. \textfont\itfam=\tenspit
  54. \def\sl{\fam\slfam\tenspsl}%
  55. \textfont\slfam=\tenspsl
  56. \def\bf{\fam\bffam\tenspbfx}%
  57.   \textfont\bffam=\tenspbfx \scriptfont\bffam=\sevenspbfx
  58. \scriptscriptfont\bffam=\fivespbfx
  59. \def\tt{\fam\ttfam\tensptt}%
  60. \textfont\ttfam=\tensptt
  61. \tt \ttglue=.5em plus .25em minus .15em
  62. \def\normalbaselines{\baselineskip 2.8ex \lineskip 1pt \lineskiplimit \z@}%
  63. \setbox\strutbox=\hbox{\vrule height 2.32ex  depth .48ex width\z@}%
  64. \normalbaselines\rm 
  65.   \ifd@ocsty \let\footerfont =\tenspit 
  66.               \let\headerfont=\tenspit 
  67. %              \let\footnotefont = \smallpoint
  68. %              \let\smallerfont = \smallpoint
  69.               \def\cheadfont{\tensprmbigg}\relax
  70.               \def\sheadfont{\tenspbfxbig}\relax
  71.               \def\ssheadfont{\tenspbfx}\relax
  72.               \def\sssheadfont{\tenspbfx}\relax
  73.               \def\dsssheadfont{\tenspbfx}\relax
  74.               \setspacings \fi
  75. \def\bigfont{\tenspbfxbig}\def\biggfont{\tenspbfxbigg}\relax
  76. \def\bigggfont{\tenspbfxbiggg}\let\titlefont = \biggfont
  77.   \let\sc=\tenspccsm }
  78.  
  79. \catcode`\@=12
  80.